macro 'GetFolder';
begin
  GetFolder;
  {The whole point is to specify where next file name is applied}
  Open('theImage');
end;